home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 January / 64er_Magazin_87-01_1987_Markt__Technik_de.d64 / dir fast (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  150b  |  6 lines
  1. 1000 open1,8,0,"$":poke781,1:sys65478:geta$,a$
  2. 1010 geta$,a$:ifst=64thensys65484:close1:return
  3. 1020 geta$,b$:print"[157]"asc(a$+chr$(0))+256*asc(b$+chr$(0));
  4. 1030 geta$:printa$;:ifa$<>""then1030
  5. 1040 print:goto1010
  6.